home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 7
/
64er_Magazin_Sonderheft_07_86-07_1986_Markt__Technik_de_Side_A.d64
/
uhrzeit anzeigen
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
351b
|
14 lines
300 rem echtzeituhr lesen
310 cia=56328:rem anfangsadresse von cia 1
320 hh=peek(cia+3):zs=peek(cia)
330 mm=peek(cia+2)
340 ss=peek(cia+1)
350 tm=0: if hh>128 then tm=1:hh=hh-128:rem nachmittags
360 hh=int(hh/16)*10+(hh and 15)
370 if tm=1 and hh<>12 then hh=hh+12
375 if tm=0 and hh=12 then hh=0
380 mm=int(mm/16)*10+(mm and 15)
390 ss=int(ss/16)*10+(ss and 15)
400 print"[147]"hh":"mm":"ss
410 goto320